home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 2
/
SPACE - Library 2 - Volume 1.iso
/
music
/
309
/
gfa
/
gfanews.doc
< prev
next >
Wrap
Text File
|
1988-10-20
|
4KB
|
151 lines
GFA BASIC 3.03 Corrections and Additions 8/23/88
Known Bugs:
RINSTR does not recognize the first character instead the byte following
the string is evaluated.
OPEN "R" GET and PUT do not work correctly without a given type number.
SEEK When an unopened file name is specified, an address or bus error will
follow.
-x^y doesn't function.
EXP() the over flow check does not always function.
ON BREAK GOSUB x If these three keys are held for an extended period the
procedure will be called repeatedly. There are two possibilities to turn
this off:
1) ON BREAK GOSUB x
REPEAT
UNTIL MOUSEK
PROCEDURE x
~bios(11,-1) and &f1)
' THE REST AS IT WAS
RETURN
With this method the status of the shift key is directly changed.
2) ON BREAK GOSUB x
REPEAT
UNTIL MOUSEK
PROCEDURE x
ON BREAK CONT
' REST AS IT WAS
ON BREAK GOSUB x
RETURN
Here the break routine is turned off.
a=1E+100
FOR i=1 to 100
PRINT a^i,LOG(a^i)/LOG(10)
NEXT i
In this loop that numbers larger than 1E+308 are calculated correctly but
numbers larger than 1E+1000 are not correct. This is intentional.
KEYDEF
The scan code is simulated with the ESC and RETURN keys with defined function
keys so that ESC and RETURN can have the usual functions in GEM.
User Modifications to GFABASIC:
There is a small area within GFABASIC.PRG and the GFABASRO.PRG in which
default settings can be changed.
OPEN "U",#1,"GFABASIC.PRG" ! or "GFABASRO.PRG"
SEEK #1,31
PRINT #1,"E"; ! or "H";
CLOSE #1
'
'with E the screen is erased at program start
' with H the screen is not erased
OPEN "U",#1,"GFABASRO.PRG"
SEEK #1,32
PRINT #1,"TESTPROG.GFA";CHR$(0);
CLOSE #1
'
' If no file is specified when GFABASRO is started, the program TESTPROG.GFA
' will be loaded and executed.
' This program name may be up to 63 characters in length, the null
' byte at te end is very important, if only a null byte is given then
' the original condition will be restored.
OPEN "U",#1,"GFABASIC.PRG"
SEEK #1,32
FOR i%=0 to 25
READ a%
OUT #1,a%
NEXT i%
CLOSE #1
'
' A B C D E F G H I J K L M N O P Q R S T U V X Y Z
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
'
'If you change the values in the DATA line then the default type for the
'variable which begins with the letter above the number, will be changed.
' ONLY the following values are allowed:
' 0=DEFFLT 1=DEFSTR 2=DEFINT 3=DEFBIT
' 8=DEFWRD 9DEFBYT
OPEN "U",#1."GFABASIC.PRG"
SEEK #1,58
FOR i%=0 TO 3
READ a%
PRINT #1,MKI$(a%)
NEXT i%
CLOSE #1
'
DATA &0777,&0700,&0070,&0000
'
'Colors for the editor, :Inverse
' DATA &0000,&0700,&0070,&0777
OPEN "U",#1,"GFABASIC.PRG"
SEEK #1,80
PRINT #1,MKI$90); !PRESET DEFLIST
CLOSE #1
OPEN "U",#1,"GFABASIC.PRG" !LLIST PRESET
SEEK #1,82
PRINT #1,MKI$(pl); !.pl
PRINT #1,MKI$(pl-2); !.pl
SEEK #1,86
PRINT #1,MKI$(ll); !.ll
SEEK #1,88
PRINT #1,he$+chr$(13); !.he
SEEK #1,120
PRINT #1,fo$+chr$(13); !.fo
SEEK #1,152
PRINT #1,in$+chr$(13); !.in
SEEK #1,184
PRINT #1,ff$+chr$(13); !.ff
CLOSE #1
'
' he$, fo$, in$ And ff$ are default values for .he, .fo, .in and .ff
' with CHR$(0) (=default) no header or footer and no initialization string
' will be output. (ff$) it is expected that the user can
' initiate a form feed with CHR$(12).
' The maximum line length for these strings including the necessary
' CHR$(13) is 32 characters.
New Commands:
.PA Executes a form feed
.P- point commands are not listed!
.P+ point commands are listed as normal.
.P+ and .P- apply to the entire listing (like .Nx), the last setting will apply.
DUMP/DIR/FILES
The screen output of these commands can be influenced, as with TRON. With
CAPS LOCK the listing will be slow, the output can be stopped with the Right
Shift Key.
Translated by
Jeff Little